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FACILITY: Screen Management 


ABSTRACT: 
This module simulates a hardcopy, VT52 or VT100 terminal. 
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Borrowed from EDT code, this module re-interprets escape and 
control sequences that are normally sent to a terminal to 
make them operate on a buffer in memory. 


ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: John Sauter, CREATION DATE: January 6, 1981 
MODIFIED BY: 


2-001 = Revised from SPtss in FERN for use in SMG$. 
PLL 6-Jul-19835. 
8 § - Some cleanup. PLL 7-Jul-1983 
- - Remove references to a tcb. PLL 8-Jul-1983 
-004 = Don't Let caller 5 cify 66 for graphics. Just 
ive him G1. UL ~Aug-198 
-005 imulate the gey ge type stored in thg DCB. Add 
support for 80/132 column mode. PLL 2-Sep-198 
~006 - add an outrange clause to a CASE statement. PLL 21-Mar-1984 
Give error for unknown escape sequence. STAN 22-Mar-1984. 
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! Unknown escape sequence 


now 


SMG$_STRTERESC; 
EXTERNAL ROUTINE 
SMGSCHANGE_PBD_CHARACTERISTICS, 
S p-VIRTUAL DISPLAY, 


H 
SMGSDELETE "LINE, 
SMGSER 


G 
SMG$$SCROLC_AREA; 


1 

5 a SMGSSSIM_TERM = Simulate a terminal 18-Sep-19 4 94:16:16 AX-11 Oi rates V4.0-74 Page 5. 

-007 SMGSSSIM_TERM = simulate a terminal 6-Sep-1984 13:29:07 SMGRTL.SRCJSMGSIMTRM.B52;1 (3) | 
: 13 0429 1 XSBTTL ‘SMGSSSIM_TERM - simulate a terminal’ : 
5 ‘ 0431 1 GLOBAL ROUTINE SMGSSSIM_TERM ( ! Simulate a terminal : 
oy 04 ¢ 1 dC ! Addr of display ctrl block : 
; 15 04 1 TEXT_LEN ' Number of bytes to text to send to the terminal : 
a 0434 1 TEXT-ADDR ! Address of the text to send : 
; ’ : 2 : LEN_PROCESSED ! Addr to return # chars processed : 
s 459 0437 1 | Ps 
; 140 0438 1 !++ : 
; (141 0439 1 ! FUNCTIONAL DESCRIPTION: | : 
; re 0440 1! : 
; 14 0441 1! This routines interprets escape and control sequences that are : 
: 144 0442 1! normally sent to a terminal in terms of a virtual display (where : 
; 1t2 Reek : } text and attributes are actually stored in buffers). | : 
: 147 0445 1 ! CALLING SEQUENCE: | : 
: 148 0446 1! : 
; #149 0447 1! ret_status.wlc.v = SMGS$SIM_TERM (DCB.rz.r, ; 
; 150 0448 1 | TEXT_LEN.rl.v, : 
y. 93) 0449 1! TEXT_ADDR.rt.r, : 
; 152 0450 1! LEN_PROCESSED.wl.r) : 
s 333 0451 1! : 
; 3 0452 1 ! FORMAL PARAMETERS: : 
3-995 0453 1! : : 
: 41% 0454 1! DCB Address of wreeeay control block : 
en 0455 1! TEXT_LEN Number of bytes of text sent to the screen : 
; 133 0456 1! TEXT _ADDR Address of that text. ; : 
; 4399 0457 1! LEN_PROCESSED Address of longword in which to return : 
: 160 0458 1! the number of characters processed : 
3; 363 0459 1! : 
: 162 0460 1 ! IMPLICIT INPUTS: : 
5. 365 0461 1! : 
> 164 0462 1! NONE : 
3 165 0465 1! : 
s 166 0464 1 ! IMPLICIT OUTPUTS: : 
3 167 0465 1! : 
: 168 0466 1! NONE : 
: 169 0467 1! : 
; 170 0468 1 ! COMPLETION STATUS: : 
s 37% 0469 1! : 
3; tf 0470 1! SMG$_STRTERESC Unknown escape sequence : 
3 6 poet SS$_RORMAL Normal successful completion : 
2 re bc? 1 ! SIDE EFFECTS: : 
: 176 0474 1! : 
: 77 0475 1! NONE 3 
; 178 0476 1! : 
: 179 0477 1 !-- : 
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5607 SMGSSSIM“TERM - simulate a terminal or8ee- 1586 3:29:07 — Eemcrte sReaismesintam.BS2.1 eee «45 
1 0478 BEGIN | 
¢ 0479 
0480 | 
i 0481 TEXT_ADDR : REF VECTOR C, BYTE], 
5 0489 DCB? REF $DCB_DECL; | 
é 48 | 
? 0484 LOCAL 
8 0485 CURR_PP_: REF SPP_DECL, | 
9 0486 PBCB™: REF $PBCB_DECL 
0 0487 TERM_STR_: REF BCOCK CTERM_STR_LEN, LONG] FIELD (TERM_STR_FIELD), | 
1 0488 TERM~TYPE, 
g $290 ote: 
3 Be8) TERM_STR = DCB CDCB_SIM_CONTROLJ; ! point to terminal data base 
é 0498 CURR_PP = .DCB CDCB_A_PP_NEXT); 
? 049% PBCB™= .CURR_PP CPP7A~PBCB_ADDRI; 
8 0495 
9 0496 


+ 
' Get the terminal type. Translate the device type 
to the code number understood by this program. 


INCR CHAR_NO FROM 1 TO .TEXT_LEN DO 
CHAR = .TEXT_ADDR C.CHAR_NO = 1); 
SELECTONE ((. TERM_TYPE®4) + (.TERM_STR CCTL_STATUS]®2) + (.TERM_STR CESC_STATUS])) OF 


oO 
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| 
8 
0501 CASE DCB CDCB_SIM_DEV_TYPE] FROM UNKNOWN TO HARDCOPY OF 
0808 CUNKNOWN, VTOS, VITFOREIGNI : 
0504 RETURN (SMG$_STRTERESC); ! error 
0506 CvT52) : 
0507 TERM_TYPE = TERM_TYPE_VTS2; 
0509 [vT100] : 
3 : TERM_TYPE = TERM_TYPE_VT100; 
5 : CHARDCOPY) : 
5 ; TERM_TYPE = TERM_TYPE_HCOPY; 
515 CINRANGE, OUTRANGE): | 
: RETURN (SMG$_STRTERESC); ! error 
8 TES; | 
9 
0 | 
4 


C(TERM_TYPE_VT100*4) + 1] : ! VT100 Escape Sequence 
BEGIN 


WAIWI 8 01 


SELECTONE .CHAR OF 
SET 
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C'H') : ' Cursor to Home 


ulate a terminal 1984 16:14 AX-11 Bliss-32 v4. Page 
ulate a terminal a aers Ti %} 3§ 07 SMGRTL  SREISHGSIMTRM.B B32;1 ° (4 
BEGIN 
TERM_STR PEenon RraTyss = 1; 
TERM_STR LESC_STATUS) = 0; 
1S a (SMG$_STRTERESC); ! error 
ie ..« 
END; 
CCTERM_TYPE_VT52*4) + 1] : ! VT52 Escape Sequence 
BEGIN 
SELECTONE .CHAR OF 
SET 
while ! Cursor Up 
DCB COCB_W_ CURSOR ROW] = MAX (.DCB CDCB_W_ROW_STARTJ, .DCB CDCB_W_CURSOR_ROW] - 1); 
TERM_STR CESC_STATUS) = 0; 
END; 
. ‘teite ! Cursor Down 
DCB COCB_W_ CURSOR ROW] = MIN (.DCB CDCB_W_NO_ROWS], .DCB CDCB_W_CURSOR_ROW] + 1); 
TERM_STR CESC_STATUS) = 0; 
END; 
aa ! Cursor Right 
DCB COCB_W ‘air The a2 A as (.DCB CDOCB_W_NO_COLS], .DCB CDCB_W_CURSOR_COL] + 1); 
TERM_STR CESC_STA 
END; 
af A ! Cursor Left 
DCB COCB_W_CU°SOR_COL] = MAX (.DCB CDCB_W_COL_STARTJ, .OCB CDCB_W_CURSOR_COLJ = 1); 
TERM_STR CESC_STATUSJ = 0; 
ND; 
ces * ! Enter ‘Graphics' Mode 
BEGIN 
DCB CDOCB_B_DEF_VIDEO_ATTR] = 
-0CB COCB_B_BEF_VIDEO_ATTR] OR 
ATTR_M_REND GRAPeC; 
TERM_STR CESC_STATUS) = 0; 
END; 
C'G') a ! Exit ‘Graphics’ Mode 
te {pce B_DEF _VIDEO_ATTR) = 
T.5CB COCB_B-DEF VIDEO_ATTR] OR 
Att M_RERD- GRAPHIC) 
penis 
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! Reverse Line feed 


DCB CDCB_W_CURSOR_ROW] - 1 


DCB CDCB_W_CURSOR_ROW] 


(.DCB COCB_W_CURSOR_ROW] GTR .DCB CDCB_W_ROW_START]) 
BEGIN 


THEN 
ELSE 
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TATUS); 


1); 
IF NOT .STATUS THEN RETURN (.S 


END; 
TERM_STR CESC_STATUSJ = 0; 


END; 


' Erase to End of Screen 


STATUS; 
STATUS = SMGSERASE_DISPLAY ( 


IF NOT .STATUS THEN RETURN . 
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MGSSSIM_TERM SMGSSSIM_TERM - Simulate a terminal 16-Sep-1984 01:16:14 AX-11 Bliss-32 V4.0-74 Pa 11) 
ata SMGSS$SIM_TERM - simulate a terminal g-828-13 4 9h) :07 LOMGRTL SRCISMGS IMTRM.B 2:1 ™ (4) | 
> 466 763 4 | ; 
: 467 764 4 "9"? «4 ! Direct Cursor Address ; 
; 468 765 BEGIN 3 
; 469 £98 TERM_STR CCTL_STATUS] = 1; 5 
; 470 76 TERM_STR CSECOND_ARG) = 8: ; 
; 471 768 TERM_STR ESC_STATUS = Q; : 
; tig £8? 4 END; . 
ae ee c'2") ' Identif 
3 se ! Ident 3 
: 475 Ore BEGIN . : 
3 rh 077 TERM_STR CESC_STATUSJ = 0; $ 
: 47 bree 4 END; 3 
: O08 bre } ! Enter Al d Mod ): 
3 “s* 7 3 ' Enter ternate Keypa ode : 
: 480 0777 § BEGIN - 
: 481 0778 5 TERM_STR CESC_STATUS] = 0; : 
; 48 0779 4 END; F 
; 48 0780 4 3 
> 6484 0781 4 te oe ! Exit Alternate Keypad Mode 3 
: 485 Bree 5 BEGIN F 
: 486 0783 5 TERM_STR CESC_STATUS) = 0; : 
: 487 0784 4 END; 3 
; 488 0785 4 ; 
; 4689 0786 4 a's 2 ! Exit hold-screen mode 3 
: 490 0787 5 BEGIN ; 
> 491 0788 § TERM_STR CESC_STATUS) = 0; : 
; #49 0789 4 END; 3 
; 49 0790 4 3 
; 494 0791 4 COTHERWISE] : é 
3; 4495 1454 5 BEGIN 3 
; 496 079 5 TERM_STR CERROR_STATUS) = 1; : 
3; 497 0794 5 TERM-STR CESC_STATUSJ = 0; 3 
; 498 0795 5 RETURN (SMG$_STRTERESC); ! error 3 
; 499 0796 4 END; 3 
; 500 0797 4 TES; ; 
s $01 0798 4 3 
3 206 0799 3 END; F 
; 50 0800 ; 3 
; 504 0801 CCTERM_TYPE_VT52*4) + 2] : ! In an ESC 7% 
s 305 080 4 BEGIN 
; 506 0803 4 
s $07 0804 4 LOCAL 
; 508 0805 4 COORD; 
3 44 B86 4 
; 10 4 COORD = .CHAR - 32; 
3 STi 0808 4 
FH 21g tts 5 IF (. COORD LSS 0) 
3 31 810 4 THEN | 
3s 514 0811 : BEGIN 
3 6515 O81¢ TERM_STR CERROR_STATUS) = 1; 
; 516 get 5 RETURN (SMG$_STRTERESC); ! error 
: ig OBS _ | 
; Ay st 2 IF (.TERM_STR CSECOND_ARG]) THEN TERM_STR CARG_2) = .COORD ELSE TERM_STR CARG_1]) = .COORD; | 
; $31 a818 5 IF (.TERM_STR CSECOND_ARG)) 
s Sda 819 4 THEN | 
| 


AA 

APA OM CUM TNOR. DHOOM UM TMNOR. DHOOM MUM TMOR. DHOK— CUM TMOR. DOOM MUM TMOR. DOO MUM TNO 
ov RI UICUI I UCU MIM PAMIPAMMIM Gd oo of of oF oF oF oF eo LAURA DOO OOOOOOORRRARAR 
ZA w0dadad00000000 0000 000000 00 a0 a0 00 a0 00 G0 00 G0 00 G0 60 60 00 00 00 G0 60 00 a0 00 00 0D 60 6D GD 60 GD 60.60 60 60 GO 6D GD 6D. G0 GO G0. 0D G0 6D GD GD 
AYA COSCO OCOCOOCOCOCOOCOOCOOCSOOSOSOSSCOSOSOSSSSCOSOSOSSOOOSOOSSCSOSOOSOSOOSOOSSOOOCOOOOOOOSOm 


-wv 
~ 
a 
oa 
a] 
a 
| 
= 
*e. 
| N 
am 
wT@ 
™m -« 
‘= 
oe 
oo 
vT= | 
> *. ° | 
wn” ~ ~ 
NO - - } 
m= Oo o 
6 w . = 
or 
nw y t i 
at * 4 
~—Wn < «< 
@m- aw < <x 
| =) = x= . . 
=} € vw wv °o °o 
—-x C3) ° ° . = 
‘oo = | ~ ~ = . 
<= Ss o oOo . a a 
=qmwn CY) -+ a e 
pu *. ” x * wv = — 
mes arm ar CT) . 
ro a wm -— = Ct) 
™ °o ‘4 tt «e oa 
wo 1 — oo oo a. a 
vn aw we Ls a 4 ca «o . Ee *. 
Oo << c << ia a - «o _ 
ooo we o un rer . 
on wu wv cv) u oe " 
Nw i 4 ca aca rc +. a *. 
oo oe ax oO bo be o an an 
Ct ad} nr oOo own mn > Ow aa Mw 
ow n” - i | ts - am = poe Te] 
= _— == == . ~~ ew CF mw 
wv c= > ~ ca ca a nA << “. 2 ~ << 
o000 wo qq wu wu wo ew - Ce] mw “. 
on ew -- Oo —e Ee - > We -: o ne _ 
-— Ld fs 4 e. . _— x= " a x= 
te . < <= ar <= cr u 
aa colt . . 6 uu nu - oOonm te] a om 
-oe@o Oo uo - a ww az t w” a a= te] 
mw z arn oe ‘ao —_ = zn o 
i i | u u u oO wm -— > wo -_ Oo wo a 
ow wr Vv ‘4 ‘4 — WE < Vv we < 
_— nazar tn] w oo oo a ” _ w ” £ 
“oom oo ” ca ca a =~ ” ” c~ (=) 
V,avuna a - uw << << ws = 4 ww = 2 
—- + <a ww un er 4 > Yaz Oo 
<«aact ‘ Lom] e az «= _ =< z «x wv 
-oOOr- a N -— ca ca EDs = —- SEOs wi 
MNNMYNWM z ” — -—- “MUara «a 4 jOaEroa 
xa i oO + o- ad ‘ mn nn Wwe ws ' wwe 
a = | VL oO = 2s 2 te =ZOraw = Oe aw 
a w ~ am ce EE “EE -s a « a on 
wo § & w” w i° 4 - w Ocea Yara w _ w -= 
ssw ws e < oa — wwwet wwwZ - ” = ” 
es Oo =x -2 * Oee—w Oee—w z . ‘ 2 . ' 
coor a Oo VL — ~Zz w +. — Zz Zs — ~Zz = 
—— eVOVrF - - . ow ws ” Qa “9 w <a “Oo ive) « 
oe “MaaQaMN wn _ ew wt ad a w wrt wa w wt is) 
cc 2 tw 8 ‘ > w o —-F w w oOo RK—w Oo = 
—oe —= = = g z a - 
ee vaeowmoca « w or oO c- *. 
te wwevewse ww a -—w - = - 
@@ @®DreoOoocorw Fr >zZz {ew Uw w ww 
reed w ee ww 
” Qa oo 
oe uae =z ew w 
w we =£o m 
ee w 
ww _ 
coe ~ 
a uw 
33 
Eee 
or 
ee) 
Le 
z= 
ca 
usu 
ee 
== 
cam DDD ST FTF MWWINT SFT TT TMN OM OOD ODONO OOM FTN OOD ONAT FTN OMNODOOMUWN 


PYVTNOPR- OPO UM TMONOR. DHOOM MUM TMNOR-. DHOOM TNOR.DRORKUMTW DOO UM TNOP DOO 
NOC CICIPYEIPIPYPIPIPIMIP T T ST TST TT T S FRARALALRAGSSSOSOSOOORR AN RAARARRR 
are eee ala al ale al alata al al al alae al alalalalalallalalallalvalvalralwal slat val ral Tal vals tal eee eee eee ee al 


GSSSIM_TERM 
07 


$M 
, 


——an 
m1 

MGSSSIM_TERM SMGSSSIM_TERM = Simulate a terminal 16-Sep-1984 01:16:14 AX-11 Oi ies -32 V4.0 Pa 13) 
3m607 SMGSSSIM_TERM = simulate a terminal ~Sep-19 4 93:38:09 SMGRTL. SRC} SMGSIMTRM, +} 2;1 yes eo 
3 0 77 & END; 

: si bre d | 
; 388 44 & at & a ! Cursor Backward 

Ps | 
; 584 0881 DCB COCB_W_CURSOR_COL] = MAX (.DCB CDCB_W_COL_START] 

3 28? OB .DCB B Cote “_W_CURSOR_COLJ - MAX (1, .TERM_STR CARG_1])); | 
: §87 0884 IF (.TERM_STR CSECOND_ARG)) 
; 588 0885 8 THEN 

; 589 0886 6 BEGIN 

; 590 0887 6 TERM STR CERROR_STATUS] = 

: 591 OBE RETURN (SMG$_ST fat TERESC}; ' error 
; 3 y END; | 
; 39 0390 

; 594 0891 § TERM_STR CCTL_STATUS) = 0; 

, 39 94 4 END; 

3s 3% 0893 4 

; 597 0894 4 C's’) : ' Cursor Down 

; 598 0895 5 BEGIN 

; 599 0896 5 DCB CDOCB_W_CURSOR_ROW] = MIN (.DCB CDCB_W_NO_ROWS) 

; $00 4944 : -DCB-CBCB_W_CORSOR_ROW] + MAX (1, . TERM_STR CARG_ 11); 

3; 60 0899 6 IF (.TERM_STR CSECOND_ARG)) 

; 60 0900 5 THEN 

3; 604 0901 6 BEGIN 

; 605 0902 6 TERM STR CERROR_STATUS) = 

3; 606 0903 6 RETURN (SMG$_STRTERESC); ! error 

: 607 0904 5 END; 

; 608 0905 5 

; 609 0906 5 TERM_STR CCTL_STATUS] = 0; 

: 610 0907 4 END; 

3 611 0908 4 

: oi¢ 0909 4 c-e*s ' Cursor Forward 

3; (61 0910 5 BEGIN 

3 614 091i 5 DCB CDCB_W_CURSOR_ COL] = MIN (.DCB CDCB_W_NO_COLS), 

; o13 Og 2 .DCB~ COCB_w_CORSOR _COL + MAX (1, .TERM_STR LARG_ WD): 

3: 617 0914 6 IF (.TERM_STR CSECOND_ARG]) 

3; 618 0919 THEN 

3; 619 916 6 BEGIN 

; 620 0917 6 TERM STR CERROR STATUS) = 

: 621 918 6 RETURN (SMG$_ST Tat TERESC); ' error 

3 Océ +484 5 END; 

i Se boo 8 TERM_STR CCTL_STATUS) = 0; 

3: 625 09 é 4 END; 

; 626 923 4 a 

; 627 0924 4 te ot ' Cursor Position 

; $33 09 5 2 BEGIN 

; 630 359 ‘ IF (.TERM_STR CARG_1] GTR .PBCB CPBCB_W_WIDTH)) | 
: 63) 928 THEN 

: 6 ¢ 929 6 
: 6 930 6 TERM STR CERROR_STATUS) = 

; 6 931 6 RETU RN (SMG$_ST Tate ERESC); °! error | 
; 6 9 é g 

* 6 0 


END 
ELSE 
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SMG$ ulate a terminal 16-Sep-1984 01:16:14 '(AX-11 Bliss-32 V4.0-74 
07 SMG$ ulate a terminal g-865- 1984 95338: O3 I'SMGRTL’ SREISHGSIMTRM.BS251 
637 934 BEGIN 
638 935 DCB EDCB_W_CURSOR_ROW = MAX (1, (. TERA STR FARG_17) - 1); 
639 936 DCB CDCBIWICURSOR“COL] = MAX (1, (.TERM STR LARG-2J) = 1); 
640 y END; 
641 938 
64 939 TERM_STR CCTL_STATUSJ = 0; 
64 940 END; 
644 boc 
645 26 C°'A') : ! Cursor Up 
646 094 BEGIN 
647 0944 DCB COCB_W_CURSOR_ROW] = MAX (.DCB OCB ey ROW_STARTI, 
ote B26? .DCB-COCB_W_CORSOR_ROW] - MAX ( TERM_STR CARG. 1993; 
650 0947 IF (.TERM_STR CSECOND_ARG]) 
651 0948 THEN 
O26 0949 8 GIN 
65 0950 TERM_STR CERROR_STATUS) = 1; 
654 8323 RETURN (SMG$_STRTERESC); ! error 
655 336 END; 
656 095 
657 0954 TERM_STR CCTL_STATUS] = 0; 
658 0955 END; 
659 0956 3 ; 
660 0957 [“s°s 3 ! Device Attributes 
661 0958 BEGIN 
; 0959 TERM_STR CCTL_STATUS] = 0; 
Raed END; 
9 ¢ C*p*) : ! Delete Character 
6 BEGIN 
CAL 
STATUS, 
COUNT; 


COUNT = .TERM_STR CARG_1); 
IF (.COUNT EQC 0) THEN”COUNT = 1; 


STATUS = SMGSDELETE_CHARS (DCB CDCB_L_DIDJ, 
DCB COCB_W_CURSOR_ROW) 
DCB CDCB-W~CURSOR~COLJ); 
IF NOT .STATUS THEN RETURN (.STATUS):~ 


hb CCTL_STATUS) = 0; 


ts ! Set Top ang Bottom Margins 


ROW START) = MAX (1, (.TERM_STR CARs 12) - 1); 
O_ROWS)] = MAX (1, (.TERM_STR CARG_27) - 1); 


"CD¢B_W_ROU_ START) GEQ .DCB CDCB_W_NO_ROWS)) 
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SPGSESIA_TERR SMGSSSIM_TERM = Simulate a terminal 18-sep-19 4 94:36:16 AX-11 Bliss-32 Yeren’ Ae 
-007 SMGSSSIM_TERM = simulate a terminal 6-Sep-1984 13:29:07 SMGRTL.SRCJSMGSIMTRM.B32; 1 
> 694 0991 END; 
; 695 938 
> 696 DCB PRES_U. CURSOR ROM = 1; 
; 697 994 DCB LDCB_W_ CURSOR rp = 4 
; 698 995 TERM_STR COTL_STATUS) = 0 
: 699 996 4 END; 
; 0997 4 
s 701 0998 4 C°A') : ! Delete Line 
: 70 0999 BEGIN 
: 70 1000 
: 704 1001 LOCAL 
s 705 100 COUNT; 
>; 706 100 
3; 707 1004 COUNT = .TERM_STR CARG_1]; 
FY rps Ope : IF (.COUNT EQC 0) THEN COUNT = 1; 
: 710 1007 6 IF ((.DCB DCB_u_CURSOR ROW] LSS .DCB CDCB_w_ROw START]) OR 
s ii 1008 g (.DCB COCB_W_CURSOR_ROW] GTR .DCB COCB_W_NO_ROwSs])) 
; ay 1009 
con 1010 6 BEGIN 
: 716 1011 6 TERM_STR CERROR_STATUS) = 1; 
s 715 Iol¢ 6 RETURN (SMG$_STRTERESC); ! error 
3; 716 1013 6 END 
Bee gig 1014 5 ELSE 
s 718 1015 6 BEGIN 
3; 719 1016 6 LOCAL 
: 720 1017 6 STATUS; 
s vel 1018 6 STATUS = SMGSDELETE_LINE (DCB CDCB_L_DIDJ, 
s te 1019 6 0CB COCB_W_CURSOR_ROW], 
s fe 1020 6 COUNT); 
: 726 1021 6 IF NOT .STATUS THEN RETURN (.STATUS); 
: 725 19s¢ 5 END; 
s 726 102 : 
s eT 1024 TERM_STR CCTL_STATUS] = 0; 
3; fe 1025 4 END; 
3 2 1026 4 : 
: 7 1027 4 ae ee ' Insert Line 
s 731 1028 5§ BEGIN 
: ree 1009 5 
7: eo 10 5 LOCAL 
; «734 1031 5 COUNT; 
3; 735 13e6 5 
; 736 1033 5 COUNT = .TERM_STR CARG_1]; 
3 7 iit: : IF (. COUNT EQC 0) THEN COUNT = 1; 
: 739 1036 6 If ((.DCB8 FOCB_W_CURSOR_ROW] LSS .DCB CDCB_W_ROW.START]) OR 
> 740 1037 6 (.DCB COCBTW7CURSOR-ROW] GTR .DCB CDCB7W7NO_ROWS))) 
> 761 1038 § THEN 
: 74 1039 6 BEGIN 
; 74 1040 6 TERM_STR CERROR_STATUS) = 1; 
; 744 1041 6 RETURN (SMG$_STRTERESC); ! error 
: 765 ok g END 
; 74 104 
; 7% 1044 6 BEGIN 
; 7648 1045 6 LOCAL 
: 749 1966 6 STATUS; 
; 750 1 6 
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SMCSSSIM_TERM SMGSSSIM_TERM = Simulate a terminal 18-Sep-1984 04:16:14 AX=11 Bl isg-32 V4.0-74 
-007 SMGSSSIM_TERM = simulate a terminal 6-Sep-1984 13:29:07 SMGRTL.SRCJSMGSIMTRM.B32;1 
; 751 1048 WHILE (.COUNT GTR 0) DO 
; re 1049 - BEGIN 
3 7 1950 7 STATUS = SMGSINSERT_LINE (DCB FCB DID] 
: 754 1051 7 DCB _CDCB-W-CURSOR_ROW]); 
: 755 1926 7 IF NOT .STATUS THEN RETURN (.STATUS): 
: 756 1053 7 END 
: 757 1054 7 
: 758 1055 5 END; 
: 759 1056 2 
: 760 1057 TERM_STR CCTL_STATUS) = 0; 
: 761 1058 4 END; 
: 76 1059 4 
s 76 1060 4 “s*7 3 ! Erase in display 
+ 764 1061 § BEGIN 
> 765 106¢ 5 
: 766 1063 § LOCAL 
: 767 1064 5 HPOS, 
: 768 1065 5 vPOS, 
: 769 1066 5 END_HPOS, 
: 770 1067 5 END-VPOS; 
: 771 1068 5 
: 772 1069 § CASE .TERM_STR CARG_1] FROM 0 TO 2 OF 
: 773 1070 § SET 
: 774 1071 § 
: 775 Ore 5 (0) : ! Active position to end 
> 776 1073 6 BEGIN 
: 777 1074 6 HPOS = .DCB CDCB_W_CURSOR_COL]; 
: 778 1075 6 VPOS = .DCB CDCB-W~CURSOR-ROW]: 
: 779 1076 6 END_HPOS = .DCB [DCB_W_NO-COLS); 
: 780 1077 6 END-VPOS = .DCB CDCB7W-NO-ROWSJ;: 
: 781 1078 5 ; 
; 78 1079 § ge 
; 78 1080 5 ct 3 ! Start to active position 
> 784 1081 6 BEGIN 
: 785 1088 6 HPOS = .DCB DCB_W_COL_START); 
> 786 1083 6 POS = .DCB CDCB-W-ROW-STARTJ: 
: 787 1084 6 END_HPOS = .DCB [DCB_W-CURSOR_COLJ; 
: 788 1085 6 END-VPOS = .DCB COCB"W7CURSOR-ROWJ; 
: 789 1086 5 ; 
: 790 1087 3 : 
: 791 1088 (2) : ' ALL of display 
: 792 1089 6 BEGIN 
: 793 1090 6 HPOS = .DCB FOCB_u_COL START : 
: 794 1091 6 VPOS = .DCB CDCB~W-ROW-STARTI: 
: 795 1098 5 END_HPOS = .DCB FOCB_W-NO_ cui §]; 
: 796 1093 6 END-VPOS = .0CB CDCB7W"NO-ROWS): 
: 797 1094 END: 
: 798 1095 TES; 
: 799 1096 
: 800 1097 6 BEGIN 
+ 801 1098 6 LOCAL 
: 802 1099 6 STATUS; 
: 80 1100 6 STATUS = SMGSERASE_DISPLAY (DCB CDCB_L_DID], 
BWR Woe 
: 806 1103 6 END_VPOS 
: $09 1104 6 END-HPOSS ; 


dD 2 
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3-007 MGSSSIM-TERM - simulate a terminal oreeer1a8e Fsisbios © Fehr Saeismestntgm og2.1 os wa 

80 IF NOT .STATUS THEN RETURN (.STATUS); 

44 END; 

81 TERM_STR CCTL_STATUS) = 0; 

4 END; 

81 "K') : ' Erase in displa 

81 BEGIN ae 

LOCAL 


HPOS, 
END_HPOS; 
a ae CARG_1] FROM 0 TO 2 OF 


[0] : ! Active position to end 


BEGIN 
HPOS = .DCB CDCB_W_CURSOR_COL]; 
END _HPOS = .0CB [DCB_wW_NO~COLS); 


Cia : ! Start to active position 


BEGIN 
HPOS = .DCB CDCB_W_COL_STARTI; 
END _HPOS = .0CB [COTB_W-CURSOR_COL]; 


0 09 Cd C9 C0 CD CD C0 Cd C9 C0 OD C0 CD CD 09 CD CD 09 CD. CD CD CD CD 
WANN WIWfornoronononnrnnn 


AORN BRB REE EB BWW nonononnunoniny 3 3 OOOO 
ODO NAN EWN OD NAME WN OO ODNOA UNE WN OOOO EWN ODDO EWN ODOM 
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5 

6 C2] : ! ALL of Line 

7 BEGIN 

8 HPOS = .DCB CDCB_W_COL_START); 

9 END_HPOS = .DCB [CDCB_W-NO_COLSJ; 
840 END; 
841 TES; 
84 
84 BEGIN 
844 LOCAL 
845 STATUS; 
846 STATUS = SMGSERASE_DISPLAY (DCB roCB_t pid). 
847 DCB CDCB-W-CURSOR_ROW], 
848 HPOS 
849 pcB (DCB_W_CURSOR_ROW], 
850 END_HPOS); 
83] IF NOT .STATUS THEN RETURN (.STATUS); 
B85 —_ 
854 TERM_STR CCTL_STATUS] = 0; 
855 END; 
856 ; se 
857 C'm') : ! Select graphic rendition 
838 BEGIN 

0 SELECTONE .TERM_STR CARG_1) OF 

1 SET 

$3 
86 [0] : 

864 BEGIN 
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if . 1984 14 AX-11 BLi 32 v4.0-74 o 18 = 
“Sep- 716: ws ss- .0- 
eae 93:38:05 SMGRTL.SRCISMGSIMTRM.B 2:1 a (4) 3 
IF (.0CB COCB_B_DEF_VIDEO_ATTR] AND 
ee SESAME? EQ. 0 
- DCB CDOCB_B_DEF_VIDEO_ATTR] = SMGSM_NORMAL 
saps DCB CDCB_B_DEF_VIDEO_ATTR] = ATTR_M_REND_GRAPHIC; 
C1] : 
BEGIN 
DCB COCB_B_DEF_VIDEO_ATTR] = 
-oCB CBCB_B Oner “VIDEO. ATTR] OR 
SMG$M_SOLB;~ 
END; 
[4] : 
BEGIN 
DCB COCB_B_DEF_VIDEO_ATTR] = 
ote CB6cB_B B Ber “VIDEO _ATTR] OR 
SMGEM CONBERCINES 
ND; 
(5] : 
BEGIN 
DCB COCB_B_DEF_VIDEO_ATTR] = 
ots CB6cB_B Ber “VIDEO _ATTR] OR 
ae M_BLINK> 
END; 
(7) : 
BEGIN 


DCB COCB_B_DEF_VIDEO_ATTR] = 
70CB C5cB_B BEF _VIDEO_ ATTR] OR 
es SMGSM_ REVERSE; 


COTHERWISE) : 
GIN 


TERM_STR CERROR_STATUS] = 1; 
AL a (SMG$_STRTERESC); ' error 


TES; 


IF (.TERM_STR CSECOND_ARG)) 
THEN 


SELECTONE . TERM_STR CARG_2) OF 


C0) : 


BEGIN 
IF (. ote COCB_B_DEF VIDEO _ATTR] AND 
ATT M_RERD-GRAPHIC) EQ. 0 


THEN 
cee [DCB_B.DEF _VIDEO_A ATTR] = SMGSM_NORMAL 
“DCB CDCB_B_DEF_VIDEO_ATTR] = ATTR_M_REND_GRAPHIC; 


Bliss-32 V4.0-74 


ESMGRTLSS g 
SMGRTL.SRCISMGSIMTRM.6 2:1 


AX-1 
! error 


Fe 


IDEO_ATTR] OR 
IDEO_ATTR] OR 
IDEG_ATTR] OR 
IDEO_ATTR] OR 


S$] 
C) 


v 
_V 
v 
V 


| 
| 
| 
| 
| 
| 


VIDEO _ATTR] = 
VOEFS ATTRJ 
VOEFS ATTR) 
VOEF. ATTR] 


DEF _ 
DEF 
CINE 
DEF 
SE; 


4 
4 
5 
B; 
& 
R 
a 
K; 
6 
ER 
STRTERES 


E 
! Set mode 


' Autorepeat 


TERM_STR CCTL_STATUS) = 0; 


END; 
E 
E 


' Autowrap 
STR CCTL_STATUS] = 0; 


9 
9 
DEF 
CB 
DEF 
CB 
DEF 
CB 
EF 
B 
V 


avuw 


_STR CARG_1]) OF 


m_BOL 
M_UND 
-£ 


p 
p 
fs 
SMGSM_BLI 
g 
Bi 
$ 


5 
§ 
B 
B 
$ 
B 
B-E5 
$ 
DCB 
RN (SMG$ 
BEGIN 
IN 
i 


5 
R 
BEGIN 
TERM STR CERROR STATU 


RETU 
END; 


F 
6 
6 
END; 
E 
CB CD 
D 
mM 
END; 
E 
CB CD 
.D 
M 
END; 
BEGIN 
DCB COCB 


END; 

E 

C 

END; 
COTHERWISE) : 


SET 
(8) : 
(7) 


(1) 

[4] 

(5] : 

(7) 
SELECTONE (. TERM 


IF (.TERM_STR CPRIV_STATUS]) 


TERM_STR CCTL_STATUS] = 0; 
THEN 


END; 
BEGIN 


yw Ke 
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2 
MGSSSIM_TERM SMGSSSIM_TERM = Simulate a terminal 18-56 -1984 01:16:14 AX-11 Bliss-32 V4.0-74 Page 20) 
et ig SMGS$$SIM_TERM - simulate a terminal et 1 03:38:03 SMGRTL.SRC Shes imine 682:1 ° (33 | 
; 979 127 END; 
; 980 1 ig 
: 981 1 £8 C3) : ! 132-column mode 
=. ¢ 1279 6 BEGIN 
; 98 1280 6 LOCAL 
> «984 1281 6 STATUS; 
; «985 1 eB 6 STATUS = SMGSCHANGE_PBD wire wae ttt ( 
; 986 1283 6 PBCB CPBCB_L_PBIDJ, 
; 987 1284 6 ZREF (132)3; 
: 988 1285 6 IF NOT .STATUS THEN RETURN .STATUS; 
; 989 1286 6 
: 990 1 a 6 IF .D0CB COCB_V_AUTOBENDED] 
: 991 1288 § THEN 
3 338 1289 BEGIN ! gnty change display for autob 
; WW 1290 7 STATUS = SMGSCHANGE_VIRTUAL_DISPLAY ( 
> 994 1291 7 DCB CDCcB_L_BIDJ, 
; 995 1 38 7 
: 996 1293 7 MREF (132)); 
; 997 1294 7 IF NOT .STATUS THEN RETURN .STATUS; 
; 998 1295 6 ND; 
; .999 1296 6 TERM_STR CCTL_STATUS] = 0; 
: 1000 1297 5 D; 
3; 1001 1298 5 
$ Hs 943 5 C1] : ' Cursor keys mode 
: 100 1300 6 BEGIN 
: 1004 1301 6 TERM_STR CCTL_STATUS] = 0; 
3; 1005 1308 5 END; 
: 1006 1303 5 
: 1007 1304 5 COTHERWISE) : 
: 1008 1305 6 BEGIN 
; 1009 1306 6 TERM_STR CERROR_STATUS) = 1; 
; 1010 1307 6 TERM_STR CCTL_STATUS) = 0; 
: 1011 1308 6 RETURN (SMG$_STRTERESC); ' error 
3 4 4 1309 5 END; 
; 101 1310 5 TES 
3 1014 1311 5 
3 1015 1316 5 ELSE 
: 1016 1313 § 
: 1017 1314 5 SELECTONE (.TERM_STR CARG_1]) OF 
: 1018 is1> 6} SET 
3; 1019 1316 5 
: 1020 1317 5 {4] : ! Insert-replace mode 
: 1021 1318 6 BEGIN 
s 1988 1333 6 TERM_STR bpMseRt poet? = 1; 
> 10 1320 6 TERM~STR CCTL_STATUS) = 0; 
3: 1024 135! 2 END; 
: 1025 13 ¢ 
3: 1026 136 5 COTHERWISE] : 
: 1027 1 $e 6 BEGIN 
: 1028 1325 6 TERM_STR tine sraryss s 13 
: 1363 1358 6 TERM STR CCTL_STATUS) = 0; 
; 10 1 RETURN (SMG$_STRTERESC); ' error 
: 1031 3 8 END; 
3; 10 ¢ 1329 TES; 
: 10 1330 
: 1034 1 $ 4 END; 
; 1035 1332 4 


3" 
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SAGSSSIA_TERR SMGSSSIM_TERN = Simulate a terminal To~senn 1386 91:18:16 AX-11 Oh fegene V4 .0-74 Page 24. 
-007 SMGSSSIM_TERM = simulate a terminal 6-Sep-1984 13:29:07 SMGRTL.SRCJSMGSIMTRM.B52;1 (4) | 
: 1207 1308 H 
: 1208 1505 CINRANGE ,OUTRANGE] : 
: 1209 1208 6 BEGIN 
: 1210 1507 6 '¢ 
: 1211 1208 6 ! We must've finished processing the 
; 1 \§ 1509 6 ; escape’ centre: sequence, and now are 
3; 121 1510 6 ! running into trailing normal characters. 
> 1214 1511 6 ' Exit at this point and let the caller 
: 1$12 1216 6 ! process normal characters. 
: 1216 1513 6 le 
: 1217 1514 6 -LEN_ PROCESSED = .CHAR_NO = 1; 
; 1218 1515 : RETURN (SS$_NORMAL); 
: 1219 1516 : 
3 1 9 1517 5 TES; 
: 1221 1518 5 
7 $$ 1519 4 END; 
: 122 1520 4 
3: 1224 1521 4 COTHERWISE) : ! misc. chars 
; 156? 15 ¢ 5 N 
3 7 $$ 15 5 -LEN PROCESSED = .CHAR_NO = 1; 
: 1227 1524 5§ RETURN (SS$_NORMAL) ; 
> 1228 1525 4 END; 
; 1568 1526 4 TES; 
: 1230 1527 4 
: 1231 1528 3 END; 
; 1S36 1529 3 
: 123 1530 3 COTHERWISE) : 
> 1234 1531 4 BEGIN 
3; 1235 1532 4 TERM_STR CERROR_STATUS] = 1; 
: 1236 1533 4 RETURN (SMG$_STRTERESC); ! error 
: 1237 1534 3 END; 
: 1238 1535 3 TES; 
; 1239 1536 3 
3; 1240 1537 § END; 
3 1241 1538 
: 1566 1539 2 -LEN_PROCESSED = .TEXT_LEN; ! processed all characters 
3 124 1540 2 RETURN (SS$_NORMAL) ; : 
3 1244 1541 1 END; ! End of routine SMG$$SIM_TERM 


-TITLE SMGSSSIM_TERM SMGSSSIM_TERM - Simulate a termin 
-IDENT \2-007\ 


.EXTRN SMG$_STRTERESC, SMGSCHANGE_PBD_CHARACTERISTICS 
.EXTRN SMGSCHANGE_VIRTUAL_DISPLAY 
EXTR ETE~ CHARS 


YISPLAY 
-EXTRN SMGSERASE-LINE, SMGSINSERT_LINE 


-PSECT _SMGSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 -ENTRY sncarsit TERM, Save R2,R3,R4,R5,R6,R7,R8,- ; 0431 
R9,R1 »RT1 H 


2 
- Simulate a terminal 18-Sep-19 4 


MGSSSIM_TERM SMGSS$SIM_TERM :16:14 AX-11 Bliss-32 V4.0-74 Pp SM 
3m007 SMGSSSIM_TERM = simulate a terminal 6-Sep-1984 93:38:07 SHGRTL.SRCISMGSIMTRM.B 2;1 see B 
B 000000006 9E MOVAB SMGSCHANGE_PBD CHARACTERISTICS, R11 : ; 
sh $600009 6 a0 c 200 HOA SHOSERASE DISPLAY, R10 : ; 
. é | ” 
54 4 AC p 901 MOVL DCB, R4 3 0491 | : 
2 0 AG F 01 MOVAB (R4), TERM_STR : | ; 
0 AG D 0018 MOVL (R4), CURR > 0493 | ; 
56 14 AO 00 0 1F MOVL (CURR_PP) , ~PBCB 7 0494 | ; 
05 00 5C AG CF 00023 CASEL (RG), #0, : 0501 | ; 
0014 000F 07 0723 0028 1$: <WORD 1 gs-18,- : ; 
0019 07 0030 13 $-18,- : | 
$3713 - : ; 
152$-1$,- : ; 
4$-1$ : | r 
0714 31 00034 BRW 152$ ; 0506 | ; 
50 02 DO 60037 2$ MOVL #2, TERM_TYPE > 0507 ; 
07 11 O003A BRB 5$ : ; 
50 03 D0 0003C 3S: MOVL #3, TERM_TYPE > 0510 ; 
02 11 005° BRB 5$ : ; 
50 D4 00041 4S: CLRL =‘ TERM_TYPE > 0513 ; 
59 50 0¢ 78 00043 5$: ASHL #2, TERM_TYPE, R9 > 0524 ; 
5 bs 00047 CLRL § CHAR_NO : ; 
0707 31 00049 6$: BRW 153$ : ; 
50 55 Oc AC C1 0004C 7S: ADDL3. TEXT_ADDR, CHAR_NO, RO ; 0522 ; 
53 FF AO 9A 00051 MOVZBL -1(R0), : : 
50 62 01 02 cf 00055 EXTZV #2, #1. (TERM_STR), RO > 0524 ; 
50 6940 3— O005A MOVAW (R9)CROI, : ; 
51 62 01 01 EF 00056 EXTZV #1, #1, (TERM_STR), R1 : : 
50 51 CO 0006 ADDL2 1. RO ; ; 
0D 50 D1 00066 CMPL RO, #13 : 0527 ; 
03 13 00069 BEQL 6s 8S : F 
00D6 31 00068 BRW 20$ : ; 
00000058 =o 8F 53 01 0006E 8$: CMPL CHAR, #91 : 0533 : 
0C 12 0007 BNEQ : ; 
62 04 88 00077 BISB2 #4, (TERM STR) > 0535 : 
62 28 8A O007A BICB2 #46, (TERM STR) : 0537 : 
04 A2 7C 0007D CLRQ  4(TERM_STRI : 0538 ; 
O16 31 00080 9$: BRW 45$ : 0540 ; 
3D 53 D1 00083 10$:  CMPL CHAR, #61 ; 0543 : 
£8 13 00086 BEQL «=soO9S : ; 
23 53 D1 00088 CMPL CHAR, #35 > 0548 : 
BC 13 00088 BEQL «=s«6S : ; 
3E 53 D1 0008D CMPL CHAR, #62 : 0555 ; 
a3 13 0009 BEQL 9$ 3 3 
0000005¢ —8F D1 0009 CMPL CHAR, #92 : 0560 : 
£3 13 000 BEQL =s«9S ; : 
3C 3 pi 00098 CMPL CHAR, #60 ; 0565 ; 
£9 13 443 BEQL +} 3 3 
0000004D =F D1 000A CMPL CHAR, #77 : 0570 : 
33 12 QO0A7 BNEQ 1s 2 
64 28 A4 B1 O00A9 CMPW = 40(R4), (RA) : 0573 
93 1B OAD BLEQU § 11$ ; 
015A 31 6 AF BRW 37$ ; 
o1 DD OBe 11$: PUSHL #1 ; 0584 
2 DD 000B4 PUSHL #2 ; 
7E 06 A& 3C 00086 MOVZWL 6(R4), =(SP) : 0590 
50 4A Ad 3C 000 MOVZWL 74(R4S, RO ; omy 
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d 3 | 
MGSSSIM_TERM SMGSSSIM_TERM = Simulate a terminal 16-Sep-1984 01:16:14 AX-11 Bliss-32 V4.0-74 Pa 0) 
a th SMGSSSIM-TERM = simulate a terminal 5-00-1882 93:38:45 SMGRTL.SRCISMGSIMTRM.B 2:1 = | 
0 01 p0 ¢ MOVL #1, RO ; | ; 
1 28 AG § C3 76$: MOVZWL 40iR4), R1 : | : 
1 50 ¢ C SUBL2 RO, R1 : | ; 
0 § C OO3CA MOVZWL (R4), RO : : 
1 g D1 003cD CMPL R0 a1 : | Ls 
: if 0 D BGEG )=s 77 : | : 
50 1 D D MOVL 1, RO : ; 
28 AG 5 e 0305 77$: MOVW RO, 40(R4) 3 0944. 4 
FF45 31 00309 BRWw 64 + 0947 ; 
00000063 = BF 5 D4 00 ; 78$: CPL CHAR, #99 + 0957 : 
00000050 =s«a&F 53 D1 9 E CMPL HAR, #80 + 0962 ; 
22 1 EC BNEG 1 : ; 
06 AE 04 A2 dO OO3E MOVL  4(TERM_STR), COUNT + 0969 : 
04 12 OO3F BNEQ 79% : 0970 ; 
04 AE 01 DO 003F MOVL #1, COUNT : ; 
ZA AG OF 003F9 798: PUSHAB 42(R4) + 0975 ; 
8 AG OF OO3F¢ PUSHAB 40(R4) : 0974 F 
O¢ AE 9F OO3FF PUSHAB : 0972 ; 
8 AG OOF 0040¢ PUSHAB 56(R4) : ; 
000000006 00 04 FB 0040 CALLS #4, SMGSDELETE_CHARS > 0975 : 
36 50 EB 0040C 80$: BLBS STATUS, 86$ : 0976 ; 
4 0040F RET : 0978 : 
00000072 ~=s«&F 53 D1 00410 81S: CMPL CHAR, #114 + 0981 : 
2F le 00417 BNEQ $ : : 
50 04 A2 01 ¢3 00419 SUBL3 #1, 4(TERM_STR), RO + 0983 ; 
03 14 OOs1E BGTR 82$ : : 
50 01 DO 00420 MOVL #1, RO F ; 
64 50 80 00423 82$ MOVW RO. (R4) : ; 
50 08 A2 01 ¢3 00426 SUBL3 «#1, B(TERM_STR), RO : 0984 F 
03 14 00428 BGTR 83$ : : 
50 01 »DO BRege MOVL #1, RO ; ; 
02 Aé 50 BO 00430 83$ MOVW RO. 2(R4) : : 
02 Ad 64 B1 00434 CMPW (R4), 2(R4) : 0986 3 
03 1F 004 BLSSU : ; 
0308 31 0043A 84$ Riv 151$ : : 
28 Aad 00010001 BF B60 00430 85$: MOVL #65537, 40(R4) + 0993 : 
0253 31 00445 86$:  BRW 138$ : 0995 : 
0000004D =&F 53 D1 00448 87$: CMPL CHAR, #77 : 0998 : 
2a 12 0044F BNEQ 89% : : 
08 AE 04 A2 dO 00451 MOVL § 4(TERM_STR), COUNT > 1004 3 
04 12 00456 BNEG 88% : 1005 : 
08 AE 01 DO 00458 MOVL #1, COUNT : 3 
64 28 «AG OBI 0045 88$: CMPW 3s (RG), (RO) : 1007 : 
D8 1F 0046 BLSSU _84$ : : 
02 A 28 «AG BI 0046 40(R4), 2(R4) > 1008 : 
D1 1A 0046 BGTRU 84$ : : 
08 AE 9F 00469 PUSHAB COUN > 1019 : 
<8 AG OF 0046C PUSHAB 40(R4 : ; 
AG OF O46F PUSHAB 36(R4) > 1018 : 
000000006 00 03 FB 0472 CALLS #3, SMGSDELETE_LINE : 1019 : 
91 11 004 BRB § : 1921 ; 
0000004c BF 33 p| 0478 89S: CPL CHAR. #76 : 1027 : 
57 04 As p 8 MOVL  4(TERM_STR), COUNT : 1033 : 
0 04 BNEQ 9 : 10 : 
57 1 pO 0048A MOVL #1, COUNT : : 
| 


3 
MGSSSIM_TERM SMGSSSIM_TERM = Simulate a terminal ise “1984 01:16:14 AX=-11 Bliss-32 V4.0-74 P 1 
a ti SMGSSSIM-TERM = simulate a terminal 3-2 0b- 1 88e 93:58:09 SMGRTL.SRCJSMGSIMTRM.B32;1 7” (a 
64 28 AG B1 0048D 90$: CMPW 3=s«@O(R4), (RO) : 1036 : 
A? e rh BLSSU 84S : ; 
02 AG 28 «AG Bl 0049 CMPW = =s-« GO(R4), -2(R4) : 1037 ; 
AO 1A 0049 BGTRU g4$ : ; 
58 38 486Ad SE O049A MOVAB 56(R4), RB : 1050 ; 
57 D5 0049E 918: TSTL COUNT + 1048. : 
A3 1 4A BLEG : ; 
28 «AG OOF 004A PUSHAB 40(R4) + 1051 ; 
58 DD OA PUSHL R : ; 
000000006 00 08 FB 4A CALLS #2, SMGSINSERT_LINE ; ; 
ED 5 Fg O4AE BL BS STATUS, 91$ : 1052) : 
0000004A = BF 53 D1 B¢89 928 CMPL CHAR, #74 : 1060 | ; 
9 ; 0 a3 CF ooceB Pad. I? iten eens: de. oe t 1069. 
0099 001 0006 004C0 93$ <WORD  94$-935,- : ; 
95$-93$.- : | ; 
968-958 : 
146 AE 2A AG 3¢ 0046 94$ MOVZWL 42(R4), HPOS : 1074 
18 AE 28 AG 3C 004CB MOVZWL 40(R4), VPOS + 1075 
1E 11 00400 BRB 97$ : 1076) 
14 AE 06 A 3C 0040¢ 95$ MOVZWL 4(R4), HPOS : 108@ | 
18 AE 64 3C 004D MOVZWL (R4), VPOS : 108 
OC AE 2A «AG 3C 00408 MOVZ2WL 42(R4), END_HPOS : 1084 
10 AE 28 A& 3C 004E0 MOVZ2WL 40(R4), END-VPOS : 1085 
13 11 004E5 BRB 98$ : 1069 | 
16 AE 04 Ad 3C 004E7 968 MOVZWL 4(R4), HPOS ; 1090 | 
18 AE 64 3C O04EC MOVZWL  (R4), VPOS > 1091 
OC AE 06 AS 3C O04FO 97$:  MOV2WL 6(R4S, END_HPOS : 1092, 
10 AE 02 A& 3C 004F5 MOVZ2WL 2(R4), END VPOS : 1093 | 
OC AE 9F OO4FA 98S: PUSHAB END_HPOS + 1100) 
14 AE OF O04FD PUSHAB END~VPOS : | 
1C AE 9F 00500 PUSHAB HPOS ; | 
24 AE 9F 00503 PUSHAB VPOS : | 
38 86AG OF 00506 998 PUSHAB 56(R4) : | 
6A 05 FB 00509 CALLS #5, SMGSERASE_DISPLAY : 
FEED 31 0050¢ BRW 80$ > 1105. 
00000048 = s BF 53 D1 0050F 100$: CMPL CHAR, #75 : 1111, 
36 12 00516 BNEQ 107$ : 
02 00 04 A2 CF 00518 CASEL 4(TERM_STR), #0, #2 ; 1118 | 
0019 0000 0006 0051D 101$: WORD 10¢8-1018,~ : 
103$-101$,- ; 
104$-101$ : 
20 AE 2A AG OC 005 3 102$: MOVZWL 42(R4), HPOS : 1133 
11. 17 005 RB 105$ t 1124 | 
20 AE 04 Ad 3¢ 909 A 103$: MOVZWL 4(R4), HPOS ; 1129 | 
1C AE 2A «AG 3 C005 2F MOVZWL 43 (R45, END_HPOS : 1130 
OA 11 009 RB 106$ : 1118 | 
20. AE 04 A& 3C 00536 104$:  MOVZWL 4(R4), HPOS ; 1135 
1c AE 06 A& 3C 00538 105$:  MOV2WL 6(R4), END_HPOS : 1136 
1¢ «AE OF O94 106$: PUSHAB END_HPOS > 1146 | 
8 AS 9F 0054 PUSHAB 40(R4) : 
AE OF 46 PUSHAB HPOS > 1144 | 
8 AG OF 4 PUSHAB 4O(RA) ; 
11 4C BRB $ > 1143, 
0000006D — 8F D1 4 107$: CMPL CHAR, #109 > 1154 
13 0055 BEQL 108$ ; 
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SMGRTL.SRCJSMGSIMTRM.B52;1 
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=(SP) 

56(R4) 

# § SMGSCHANGE_VIRTUAL_DISPLAY 
rT 

$s 

8$ 

TERM_STR), RO 

#4 


$ 
#64, (TERM_STR) 
CHAR, #108 
139$ 


(TERM_ STR) 


#5 137$ 
4(TERM_STR), RO 
RO, #8 


#80, (SP) 
SP 


20(PBCB) 
#2, SMGSCHANGE_PBD_CHARACTERISTICS 
STATUS, 134$ 


#4, 5S2(R4), 138$ 
#86, (SP) 
127$ 


ERM_STR), RO 
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RM St 
RM 
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SMGSSSIM_TERM 
-007 


SAGSSSIA_TERR 


FBF2 


; Routine Size: 


SMGSSSIM_TERM = Si 
SMGSSSIM-TERM = si 


55 


1891 bytes, 


mulate a terminal 
mulate a terminal 
02 ru 
95 $f 805 
10 BC —) @ 7 7 
1 1 7 
$¢ 10 &e 7 
00000000G BF »D 7 
04 007 
0 OO ab BRE 
8 01 ty 07 
04 007 


Routine Base: _SMGS$CODE + 0000 


Un & & 


MMS ATID OOO MO 


53 - 
yan 
149$: 
150$: 
151$: 
1338: 
153$: 
154$: 


1986 93:28:09 


AX-11 BLi jeqc32.¥ v4.0 

SMGRTL.SRCISMGSI Vat om. 5 2;1 
3$ 

#2, (TERM_STR) 

tT ee @LEN_PROCESSED 


#16, (TERMS 
#SMGS_ STRTERESC, RO 


TEXT_LEN, #1, CHAR_NO 
TEXTELEN, acen_ pacteséen: 


Page 


~ 
| 


SEWN WWMRMOW fw 


—— OS 
Vw UU ne 
—O00O WRFfUNRWwW ~uU 


; 


SAGSSSIM_TERM 


~$255$DUA28: CSMGRTL .OBJIJS 


SMGSSSIM_TERM = Simulate a terminal 
SMGSSSIM_TERM = simulate a terminal 
1542 1 END 

1828 1 

1544 0 ELUDOM 


PSECT SUMMARY 
Bytes 


! End of module spicata 


1891 NOVEC,NOWRT, 


Library Statistics 


Total 

UA28: CSYSLIBIJSTARLET.L32;1 9776 

“$25 2SDUADB: CSMGRTL.OBJJRTLLIB.L32;1 36 
MGLIB.L32;1 469 


Lines/CPU Min: 


COMMAND QUALIFIERS 


Pie Sra rece ahs ret preter crenaecipree reer MSRC$:SMGS IMTRM/UPDATE=(ENHS: SMGSIMTRM 


1891 coge,° 0 data bytes 
02 :48.4 


1880 
Lexemes/CPU-Min: 17362 


Compiiation Complete 


810 pages 
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